﻿Namespace BLL

    Public Class AlugarVeiculo

        Private _cliente As Cliente

        Private _veiculo As Veiculo

        Private _dataLocacao As Date

        Private _dataDevolucao As Date

        Public Sub New()
        End Sub

        Public Property cliente As Cliente
            Get
                Return Me._cliente
            End Get
            Set(ByVal value As Cliente)
                Me._cliente = value
            End Set
        End Property

        Public Property veiculo As Veiculo
            Get
                Return Me._veiculo
            End Get
            Set(ByVal value As Veiculo)
                Me._veiculo = value
            End Set
        End Property

        Public Property dataLocacao As Date
            Get
                Return Me._dataLocacao
            End Get
            Set(ByVal value As Date)
                Me._dataLocacao = value
            End Set
        End Property

        Public Property dataDevolucao As Date
            Get
                Return Me._dataDevolucao
            End Get
            Set(ByVal value As Date)
                Me._dataDevolucao = value
            End Set
        End Property


    End Class

End Namespace
